home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / office.spr < prev    next >
Encoding:
Text File  |  1994-07-07  |  3.5 KB  |  127 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/18/94             OFFICE.SPR                21:01:25 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("office") ;
  45.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.PJX" ;
  46.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.SCX" ;
  47.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.MNX" ;
  48.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.PRG" ;
  49.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.FRX" ;
  50.     OR UPPER(WTITLE("OFFICE")) == "OFFICE.QPR"
  51.     DEFINE WINDOW office ;
  52.         AT 3.750, 29.500 ;
  53.         SIZE 21.385,67.200 ;
  54.         TITLE "Office" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM
  60. ENDIF
  61.  
  62.  
  63. #REGION 1
  64. DEFINE POPUP _qqz19274y ;
  65.     PROMPT FIELD Address ;
  66.     SCROLL
  67. DEFINE POPUP _qqz19275s ;
  68.     PROMPT FIELD Office_nam ;
  69.     SCROLL
  70.  
  71. *       *********************************************************
  72. *       *                                                         
  73. *       *              OFFICE/Windows Screen Layout               
  74. *       *                                                         
  75. *       *********************************************************
  76. *
  77.  
  78. #REGION 1
  79. IF WVISIBLE("office")
  80.     ACTIVATE WINDOW office SAME
  81. ELSE
  82.     ACTIVATE WINDOW office NOSHOW
  83. ENDIF
  84. @ 2.846,5.000 GET M.AddSlct ;
  85.      PICTURE "@&N" ;
  86.     POPUP _qqz19274y ;
  87.     SIZE 17.308,23.800 ;
  88.     DEFAULT " " ;
  89.     FONT "MS Sans Serif", 8 ;
  90.     STYLE ""
  91. @ 2.846,36.200 GET M.Name2Slct ;
  92.      PICTURE "@&N" ;
  93.     POPUP _qqz19275s ;
  94.     SIZE 17.308,26.200 ;
  95.     DEFAULT " " ;
  96.     FONT "MS Sans Serif", 8 ;
  97.     STYLE ""
  98. @ 0.846,4.800 SAY "Office Address:" ;
  99.     FONT "MS Sans Serif", 10 ;
  100.     STYLE "T"
  101. @ 0.846,36.000 SAY "Office Name:" ;
  102.     FONT "MS Sans Serif", 10 ;
  103.     STYLE "T"
  104.  
  105. IF NOT WVISIBLE("office")
  106.     ACTIVATE WINDOW office
  107. ENDIF
  108.  
  109. READ CYCLE ;
  110.     DEACTIVATE .T.
  111.  
  112. RELEASE WINDOW office
  113. SELECT (m.currarea)
  114.  
  115. RELEASE POPUPS _qqz19274y, _qqz19275s
  116.  
  117. #REGION 0
  118.  
  119. SET READBORDER &rborder
  120.  
  121. IF m.talkstat = "ON"
  122.     SET TALK ON
  123. ENDIF
  124. IF m.compstat = "ON"
  125.     SET COMPATIBLE ON
  126. ENDIF
  127.